Keep track of blocks with fine pitch tuning

This is for a future addition in the Compatibility window to transpose notes inside the ±100 pitch range.

Author: Bentroen

scripts/add_block/add_block.gml

@@ -51,6 +51,7 @@ if (!insnum) {
     if (ins.user) block_custom += 1
 }
 if (key < 33 || key > 57) block_outside += 1
+if (pit != 0) block_pitched += 1
 totalblocks += 1
 
 if (colfirst[xx] = -1 || yy < colfirst[xx]) colfirst[xx] = yy

scripts/add_block_manual/add_block_manual.gml

@@ -53,6 +53,7 @@ rowamount[yy] += 1
 ins.num_blocks++
 if (key < 33 || key > 57) block_outside += 1
 if (ins.user) block_custom += 1
+if (pit != 0) block_pitched += 1
 totalblocks += 1
 changed = 1
 work_add += 1

scripts/add_block_select/add_block_select.gml

@@ -44,6 +44,7 @@ rowamount[yy] += 1
 ins.num_blocks++
 if (key < 33 || key > 57) block_outside += 1
 if (ins.user) block_custom += 1
+if (pit != 0) block_pitched += 1
 totalblocks += 1
 
 if (colfirst[xx] = -1 || yy < colfirst[xx]) colfirst[xx] = yy

scripts/calculate_size/calculate_size.gml

@@ -5,6 +5,9 @@ if (block_outside > 0) {
 if (block_custom > 0) {
     if (!question("Some note blocks have a custom instrument assigned to them. Export anyway?", "Minecraft Compatibility")) return 0
 }
+if (block_pitched > 0) {
+    if (!question("Some note blocks have fine pitch tuning, which isn't supported in note blocks. Export anyway?", "Minecraft Compatibility")) return 0
+}
 if (tempo != 10 && tempo != 5 && tempo != 2.5) {
     message("The tempo of the song is not compatible with Minecraft. As a result, the playback speed of the song in-game will differ from the one in the program.", "Tempo")
 }

scripts/change_block_manual/change_block_manual.gml

@@ -24,3 +24,5 @@ history_set(h_changeblock, xx, yy, ins, key, vel, pan, pit, pins, pkey, pvel, pp
 changed = 1
 if (pkey >= 33 && pkey <= 57 && (key < 33 || key > 57)) block_outside += 1
 if (key >= 33 && key <= 57 && (pkey < 33 || pkey > 57)) block_outside -= 1
+if (ppit = 0 && pit != 0) block_pitched += 1
+if (ppit != 0 && pit = 0) block_pitched -= 1

scripts/control_create/control_create.gml

@@ -99,6 +99,7 @@ song_played[0, 0] = 0
 song_added[0, 0] = 0
 block_outside = 0
 block_custom = 0
+block_pitched = 0
 midi_devices = 0
 
 colamount[0] = 0

scripts/control_draw/control_draw.gml

@@ -21,7 +21,7 @@ remove_emitters()
 
 if (selected = 0) {
 	if (block_outside = 0 && block_custom = 0) {
-		if (tempo = 10 || tempo = 5 || tempo = 2.5) compatible = 1
+		if ((tempo = 10 || tempo = 5 || tempo = 2.5) && block_pitched = 0) compatible = 1
 		else compatible = 2
 	} else compatible = 0
 }

scripts/remove_block/remove_block.gml

@@ -8,6 +8,7 @@ song_exists[xx, yy] = 0
 song_ins[xx, yy].num_blocks--
 if (song_key[xx, yy] < 33 || song_key[xx, yy] > 57) block_outside -= 1
 if (song_ins[xx, yy].user) block_custom -= 1
+if (song_pit[xx, yy] != 0) block_pitched -= 1
 song_ins[xx, yy] = 0
 song_key[xx, yy] = 0
 song_vel[xx, yy] = 0

scripts/remove_block_manual/remove_block_manual.gml

@@ -13,6 +13,7 @@ pit = song_pit[xx, yy]
 ins.num_blocks--
 if (song_key[xx, yy] < 33 || song_key[xx, yy] > 57) block_outside -= 1
 if (ins.user) block_custom -= 1
+if (song_pit[xx, yy] != 0) block_pitched -= 1
 song_ins[xx, yy] = 0
 song_key[xx, yy] = 0
 song_vel[xx, yy] = 0

scripts/remove_block_select/remove_block_select.gml

@@ -8,6 +8,7 @@ song_exists[xx, yy] = 0
 song_ins[xx, yy].num_blocks--
 if (song_key[xx, yy] < 33 || song_key[xx, yy] > 57) block_outside -= 1
 if (song_ins[xx, yy].user) block_custom -= 1
+if (song_pit[xx, yy] != 0) block_pitched -= 1
 
 song_ins[xx, yy] = 0
 song_key[xx, yy] = 0