SZS v2.27a

1 files changed, 25 insertions, 0 deletions

diff --git a/project/scripts/kcl/remove-sound-triggers.txt b/project/scripts/kcl/remove-sound-triggers.txt
new file mode 100644
index 0000000..c6f5ec4
--- /dev/null
+++ b/project/scripts/kcl/remove-sound-triggers.txt
@@ -0,0 +1,25 @@
+###############################
+###  (c) Wiimm, 2021-09-24  ###
+###############################
+
+# Setup
+@def start	= mSec()	# start time, for the status line
+@def rm_count	= 0		# remove counter
+
+# Define a function to test the KCL flag for sound trigger
+@function isSound # flag
+    @pdef t = $1 & 0x1f
+    @return t == 0x18
+@endfunction
+
+# Main loop: Iterate through all triangles
+@for t=0;tri$n()-1
+    @if isSound(tri$flag(t))
+	@def status = tri$remove(t)
+	@def rm_count = rm_count+1
+    @endif
+@endfor
+
+# Print a little status line
+@echo "  - " rm_count " of " tri$n() " triangles removed in " (mSec()-start) " msec."
+