Add OpReadBlockIndexed and OpWriteBlockIndexed

Author: object-Object

Common/src/main/kotlin/gay/object/hexdebug/casting/actions/OpReadBlockIndexed.kt

@@ -0,0 +1,51 @@
+package gay.`object`.hexdebug.casting.actions
+
+import at.petrak.hexcasting.api.casting.castables.ConstMediaAction
+import at.petrak.hexcasting.api.casting.eval.CastingEnvironment
+import at.petrak.hexcasting.api.casting.getBlockPos
+import at.petrak.hexcasting.api.casting.getInt
+import at.petrak.hexcasting.api.casting.iota.Iota
+import at.petrak.hexcasting.api.casting.iota.IotaType
+import at.petrak.hexcasting.api.casting.mishaps.MishapBadBlock
+import at.petrak.hexcasting.api.utils.downcast
+import at.petrak.hexcasting.common.lib.hex.HexIotaTypes
+import gay.`object`.hexdebug.utils.findDataHolder
+import net.minecraft.nbt.CompoundTag
+import net.minecraft.nbt.ListTag
+
+// temporary implementation of FallingColors/HexMod#412 since there's no 1.20 gloop
+object OpReadBlockIndexed : ConstMediaAction {
+    override val argc = 2
+
+    override fun execute(
+        args: List<Iota>,
+        env: CastingEnvironment,
+    ): List<Iota> {
+        val pos = args.getBlockPos(0, argc)
+        val index = args.getInt(1, argc)
+
+        env.assertPosInRange(pos)
+
+        val datumHolder = findDataHolder(env.world, pos)
+            ?: throw MishapBadBlock.of(pos, "iota.read")
+
+        val tag = datumHolder.readIotaTag()
+            ?: throw MishapBadBlock.of(pos, "iota.read")
+
+        if (tag.getString(HexIotaTypes.KEY_TYPE) != "hexcasting:list")
+            throw MishapBadBlock.of(pos, "iota.read")
+
+        val item = try {
+            tag.get(HexIotaTypes.KEY_DATA)
+                ?.downcast(ListTag.TYPE)
+                ?.getOrNull(index)
+                ?.downcast(CompoundTag.TYPE)
+                ?: throw MishapBadBlock.of(pos, "iota.read")
+        } catch (e: IllegalArgumentException) {
+            throw MishapBadBlock.of(pos, "iota.read")
+        }
+
+        val datum = IotaType.deserialize(item, env.world)
+        return listOf(datum)
+    }
+}

Common/src/main/kotlin/gay/object/hexdebug/casting/actions/OpWriteBlockIndexed.kt

@@ -0,0 +1,64 @@
+package gay.`object`.hexdebug.casting.actions
+
+import at.petrak.hexcasting.api.addldata.ADIotaHolder
+import at.petrak.hexcasting.api.casting.ParticleSpray
+import at.petrak.hexcasting.api.casting.RenderedSpell
+import at.petrak.hexcasting.api.casting.castables.SpellAction
+import at.petrak.hexcasting.api.casting.eval.CastingEnvironment
+import at.petrak.hexcasting.api.casting.getBlockPos
+import at.petrak.hexcasting.api.casting.getInt
+import at.petrak.hexcasting.api.casting.iota.Iota
+import at.petrak.hexcasting.api.casting.iota.ListIota
+import at.petrak.hexcasting.api.casting.mishaps.MishapBadBlock
+import at.petrak.hexcasting.api.casting.mishaps.MishapOthersName
+import gay.`object`.hexdebug.utils.findDataHolder
+import net.minecraft.world.phys.Vec3
+
+// temporary implementation of FallingColors/HexMod#412 since there's no 1.20 gloop
+object OpWriteBlockIndexed : SpellAction {
+    override val argc = 3
+
+    override fun execute(
+        args: List<Iota>,
+        env: CastingEnvironment,
+    ): SpellAction.Result {
+        val pos = args.getBlockPos(0, argc)
+        val index = args.getInt(1, argc)
+        val datum = args[2]
+
+        env.assertPosInRange(pos)
+
+        val datumHolder = findDataHolder(env.world, pos)
+            ?: throw MishapBadBlock.of(pos, "iota.write")
+
+        val list = (datumHolder.readIota(env.world) as? ListIota)
+            ?.list
+            ?.toMutableList()
+            ?: throw MishapBadBlock.of(pos, "iota.read")
+
+        if (index > list.lastIndex)
+            throw MishapBadBlock.of(pos, "iota.write")
+
+        list[index] = datum
+
+        val listIota = ListIota(list)
+        if (!datumHolder.writeIota(listIota, true))
+            throw MishapBadBlock.of(pos, "iota.write")
+
+        val trueName = MishapOthersName.getTrueNameFromDatum(listIota, null)
+        if (trueName != null)
+            throw MishapOthersName(trueName)
+
+        return SpellAction.Result(
+            Spell(listIota, datumHolder),
+            0,
+            listOf(ParticleSpray(pos.center, Vec3(1.0, 0.0, 0.0), 0.25, 3.14, 40))
+        )
+    }
+
+    private data class Spell(val datum: Iota, val datumHolder: ADIotaHolder) : RenderedSpell {
+        override fun cast(env: CastingEnvironment) {
+            datumHolder.writeIota(datum, false)
+        }
+    }
+}

Common/src/main/kotlin/gay/object/hexdebug/registry/HexDebugActions.kt

@@ -26,6 +26,8 @@ object HexDebugActions : HexDebugRegistrar<ActionRegistryEntry>(HexRegistries.AC
     // temporary implementation of FallingColors/HexMod#412 since there's no 1.20 gloop
     val BLOCK_READ = make("block_read", HexDir.EAST, "aqqqqqeawqwaw", OpReadBlock)
     val BLOCK_WRITE = make("block_write", HexDir.EAST, "deeeeeqdwewewewdw", OpWriteBlock)
+    val BLOCK_READ_INDEXED = make("block_read_indexed", HexDir.EAST, "aqqqqqedwewewewdw", OpReadBlockIndexed)
+    val BLOCK_WRITE_INDEXED = make("block_write_indexed", HexDir.EAST, "deeeeeqawqwaw", OpWriteBlockIndexed)
 
     private fun make(name: String, startDir: HexDir, signature: String, action: Action) =
         make(name, startDir, signature) { action }