Implement control_while

This makes Crystal Seeker playable
valadaptive · Jun 14, 2024 · b29cb0e · b29cb0e
1 parent cb29e7a
commit b29cb0e
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/blocks.ts b/src/blocks.ts
@@ -1169,6 +1169,22 @@ export const control_repeat_until = new ProtoBlock({
     colorCategory: 'control',
 });
 
+export const control_while = new ProtoBlock({
+    opcode: 'control_while',
+    inputs: {
+        CONDITION: BooleanInput,
+        SUBSTACK: StackInput,
+    },
+    execute: function* ({CONDITION, SUBSTACK}, ctx) {
+        // Note that we can't use evaluateFast here because it's not re-entrant!
+        while (toBoolean(yield* ctx.evaluate(CONDITION))) {
+            yield* ctx.evaluate(SUBSTACK);
+            yield;
+        }
+    },
+    colorCategory: 'control',
+});
+
 export const control_stop = new ProtoBlock({
     opcode: 'control_stop',
     inputs: {