fix _-1 harps note working

Author: OctoFlareDev

scripts/macros/macros.gml

@@ -1,6 +1,6 @@
 function macros() {
 #macro gm_runtime_version "2022.2.0.487"
-#macro version_date "2022.05.23"
+#macro version_date "2022.05.24"
 #macro version "3.10.0-beta.3"
 #macro is_prerelease 1 // remember to change to 0 in the release!
 #macro nbs_version 5

scripts/schematic_export/schematic_export.gml

@@ -945,7 +945,7 @@ function schematic_export() {
 				TAG_Int("state", insnum * 26 + 19)
 				TAG_End()
 			}
-			var soundname, soundpitch;
+			var soundname, soundpitch, soundnote;
 			for (a = 0; a < noteblocks; a += 1) {
 				if (o.command_block) {
 					TAG_Compound("nbt")
@@ -965,7 +965,7 @@ function schematic_export() {
 					buffer_write_int_be(wid - 1 - noteblocky[a])
 					buffer_write_int_be(noteblockz[a])
 					buffer_write_int_be(noteblockx[a])
-	            TAG_Int("state", 3 + insnum + noteblockins[a] * 25 + noteblocknote[a])
+	            TAG_Int("state", 3 + insnum + (noteblockins[a] * 25 + noteblocknote[a]) * !o.command_block)
 	            TAG_End()
 	        }
 			if (chest) {