Mindcode: a Mindustry Logic high-level language

Here you can compile a schematics definition written in Schemacode, a schema definition language, into a text representation to be pasted into Mindustry using the Import schematics... button. If your schematics contain processors, you can specify code for the processor using either Mindustry Logic or Mindcode. You can also decompile an existing schematics using the Decompiler and modify the resulting code.

Schemacode definition: Encoded schematic:

schematic
    name = "Regulator"
    description = """
        Regulates production or consumption by switching devices on or off.
        Linked blocks are identified and used according to their type as follows:
        messages are printed to the first message block found,
        reset switch is the first switch block found
        (reset causes complete reconfiguration - new scanning of all blocks),
        sorter or inverted sorter, if configured, specifies item to measure in containers.
        The last found container/tank/battery/node is used for level measurement.
        All devices linked after the container are switched on or off
        according to the fullness of the container.
        Linking inverted sorter (regardless of its configuration) inverts the activation logic:
        devices are activated when the level is high and deactivated when it is low.
        Level is measured as a percentage of total capacity filled by materials.
        """
    tag = "Schematic Builder"
    tag = BLOCK-MICRO-PROCESSOR

message1:
    @message             at ( 0,  0)
    @micro-processor     at ( 1,  0) processor
        links * end
        mindcode = mindcode_source
    end
switch1:
    @switch              at ( 2,  0) disabled
end

mindcode_source = """
    param PCT_LOW = 60;
    param PCT_HIGH = 80;
    MESSAGE = container = sorter = maximum = measure = switch = null;
    CYCLES = 0;
    STATE = false;

do
        repeat = false;
        println("Configuring regulator...");
        controlled = 0;
        links = @links;
        for n in 0 ... links do
            block = getlink(n);
            println("Found: ", block);
            case block.@type
                when @message then
                    MESSAGE = block;
                when @switch then
                    switch = block;
                when @sorter, @inverted-sorter, @unloader then
                    sorter = block;
                when @vault, @container, @core-shard, @core-foundation, @core-nucleus then
                    container = block;
                    measure = @totalItems;
                    maximum = @itemCapacity;
                when @liquid-tank, @liquid-container, @liquid-router then
                    container = block;
                    measure = @totalLiquids;
                    maximum = @liquidCapacity;
                when @battery, @battery-large then
                    container = block;
                    measure = @totalPower;
                    maximum = @powerCapacity;
                when @power-node, @power-node-large, @surge-tower then
                    container = block;
                    measure = @powerNetStored;
                    maximum = @powerNetCapacity;
                else
                    // This block will be controlled by the regulator
                    controlled |= (1 << n);
            end;
        end;

println("Message: ", MESSAGE);
        println("Switch: ", switch);
        println("Sorter: ", sorter);
        println("Container: ", container);
        println("Controlled mask: ", controlled);
        if MESSAGE == null then println("No message."); repeat = true; end;
        if switch == null then println("No switch."); repeat = true; end;
        if container == null then println("No container."); repeat = true; end;
        printflush(MESSAGE);
    while repeat;

// Reset text buffer
    printflush(null);

validate(PCT_LOW >= 0 and PCT_LOW <= 100 and PCT_LOW == floor(PCT_LOW), "PCT_LOW must be an integer between 0 to 100.");
    validate(PCT_HIGH >= 0 and PCT_HIGH <= 100 and PCT_HIGH == floor(PCT_HIGH), "PCT_HIGH must be an integer between 0 to 100.");
    validate(PCT_LOW < PCT_HIGH, "PCT_LOW must be less than PCT_HIGH.");

max = container.sensor(maximum);
    INVERTED = sorter.@type === @inverted-sorter;
    setState(true);

switch.enabled = 0;
    while switch.@enabled == 0 do
        start = @time;

// Reset when we lose anything
        if container.@dead != 0   then end(); end;
        if MESSAGE.@dead != 0     then end(); end;
        if switch.@dead != 0      then end(); end;
        if sorter == sorter.@dead then end(); end;

item = sorter.@config;
        if item == null || measure != @totalItems then
            item = measure;
            print($"Measuring [gold]total[] in $container");
            amount = container.sensor(measure);
        else
            print($"Measuring [gold]$item[] in $container");
            amount = container.sensor(item);
        end;
        pct = (100 * amount) \ max;

if pct <= PCT_LOW then
            setState(true);
        elsif pct >= PCT_HIGH then
            setState(false);
        end;

print($"\nLevel: [gold]$pct%[]");
        if INVERTED then
            print($"\nActivate above [green]$PCT_HIGH%[]");
            print($"\nDeactivate below [salmon]$PCT_LOW%[]");
        else
            print($"\nActivate below [green]$PCT_LOW%[]");
            print($"\nDeactivate above [salmon]$PCT_HIGH%[]");
        end;

print(ACTIVE_TEXT);

if links != @links then end(); end;
        for n in 0 ... links do
            block = getlink(n);
            if controlled & (1 << n) then
                block.enabled = ON;
                print("\n    ", block);
            end;
        end;

print($"[]\n# of cycles: $CYCLES");
        print($"\n[lightgray]Loop: $ ms", floor(@time - start));
        printflush(MESSAGE);
    end;

inline def setState(newState)
        if STATE != newState then
            STATE = newState;
            CYCLES += 1;
            ON = INVERTED ^ STATE;
            ACTIVE_TEXT = ON ? "\nCurrently active:[green]" : "\nCurrently inactive:[salmon]";
        end;
    end;

def validate(condition, text)
        if !condition then
            print(text);
            printflush(MESSAGE);
            stopProcessor();
        end;
    end;
    """

164 lines of code

bXNjaAF4nGWTCzgVeR/Hxz0n6tSbQmGse66xqhUKZU8pbVjXpOmcOUzmzBwzwwndXLrn1UqKFEVYt3LJogspQimUt3XtolQubyhLeNkZh57dfc88z3nO8/t//9/5/j6/3wGkAAkpQBqDBDAg7wL7B6MQhRPAfB5McglESCE4JmU0W4dJUEjgvGAuUwVxAuTiGBksmBGBe0JBUoRQ3AAE8wd5cAjCpeViGc7nm4BbESwQ5oF7UJwbSIIQAYMID8YohI/QVQjjgcEk84PLxQkeY0HhIBUAIwRIhQphECJBPo6iuIi0AgUwSUL+sNhESCAYRV8Uy0E+QpDUnEL8MvpiMMYzAgmYhKnZjCBC/kU+W/uLGtQXq7kQnYqk+xQIUZiCaQ+6ZT7iH0xAM00bgxgsAkkuhGFMZpwPQig626OBEUjiBAUTDAIEC4EJJqe4ZAQifHDOCqbDkUKYy6AgQYSCBUw3AhgigxlKGCOkIASDCdIEdKNToxAdWpzz25EpBWGBpnsginYPNcVwHsz0OMOUT78fhUNgdM5TQHM3Ae3opHNzQsXDgfhMXAbMN98ZyGJAtODbPP9vUCA/GEUxmjsD4W8O4tEzyn9AYCD7QwQPnb2FUCT4N7wGszfEs4LotQsRY0dxf4Rr9S09E3H2lDYXBcDYzAVxzzSFAMQ/YGbFePA/ZAjFnNNrRYecU89C4jE7B4FCmODSuJhtYhrDKQilt0IIcREqlF4fFGV2OhQU0J4EAqGkCSCLQntglASW+bjSzOgDhAvaByMojx77p5R0XylAbnY/gYUChEvgxvSfim6DhgLIikkDACAFMB9pCfpLgn6ABQAgI9qXPODZibevZotGCzUPVV0+rhCu8pNDnM6PQ7tWlGLLwc2nWj+sTrez8zmddm6x0gmit+Judyan/uTZ6vZGSMDSLp/olIt92K2WMhL2cnqnJqvLuUfjSdck62hXxNT+A+O9lsffjWaVO30cln1rWRN3RtOzRafQYNA1qSVx06+czTuQRQnamWYNAu/p/VYXL91O8s5arDTPRagYdGTBSfMGg7XJZyatfFv6uTJbirNXpaf3j058+uyQVq6tnCatfz4o6VBupedkXHxywVRWkeQYpOCuYxFZ/1XxceZvla5jUUpXJxeaee8u5FUQA/ecXN7XzVuRjde92PrR8clShYNXvRbtHVrVuaS2Z4Ucy8z5XwNO88yyV/73+NHogtdeB/eWaCxYyJHYHXd4KK6sOirX82kU54SsAzCk1uGGCroWqFoMVWQqRj5s+qOwb8Cub7iMa3orwM8lefpUMTi1LMBvdMBwwFAwXdS2oyjKtLbi2Cf1TB0Xm6NxaiVB5QbhbN32G8d2Z/zgysl8utzVXtP2mn5ORwiebN4mvVSY2NxwsO1pc7vVtrbxgtQpm6VdcevcSr4sSy75LezKO8kmlT6nHc1w5CqRN6TmGxy1SWuNtO0na5UjN2NCAgOnjQ+XL+TdMZ74FFidkfZWobU1230kOegVK9HZPfPiR9j/u+u5uzx0k2TYKrCU9D1A18pzaYZ86nzXnLrdIwUyCStuVSfkLJcF9agwH4cOVY0lXyIPb81vfiy3NysVjilOqs0K6lmetslFtPKEsU7eUM0HRLkzW3pQ9UVLTKvClS73uzZKm+Whk3DEuqeDbwflGjz1Cp3eR/OPKbaPagM95nmTHMMzG57crtnYYDbV2HIqOiqSfC7UvtFk5e2QrPvYTj1d+5pBnZrTjysvF+DGZQ41Kqybebn5+p5gZfOlpqaTgkrJpnXRv1fK6b9+1KcR4lh2Nf3Dgl2vEjVLDcMi8LGBQZkId81fsLFIO6eiE35s1YRoW+UNAkM3CeupHIklNX/EphqsVXMccUTC2168Vr/YoChZb7w375a1m9Za0zpnAw+dNvUmuV0kXD90aRnfO8PJl3A27dp2KHG7X8CXtQ0vjr8++z5b4aTT/tXrE7e/+7r05dmXev7PVNh1gycSeyvKbripdNTxDo5j45Dt/wQmW3i+CfqZ++6vljVByh3THrHenH7rka0uuyvd5XhO/Kr2vM19kFdsqerPqET9a/sO82zVsOGH8k+C7qsZln6psvD5VVg+kXoj3SgO6bGOjo64s7Bb2u6a/qBU30azC6LDww8WxWxtFUlr+Zj1sk/HfC7ZiT6qbid+wc2r4ub3p2WMLcYMlYemamtNqx0SwvvTOFcoY5G9iuKtW2atavM25rZwbg/HXsuAtUJin5U11qY8M/GQ1vOwH3qn9Kgwf7nPdRn+ZFmdjV2zpcCi0CcpHLWUHbtq+cGg5Ij1KQf3nLsGr85tcfhBb1uzpbKSU/bXyQeGfl4T8Pp8+fhsc9aiI+O8m9uLRvKszA5UTt+LwjpC39jhz4sz2c4WSjvlquJ78zie/xFU3Slgc9axJx6myn90/a7p+3P+ATGDWZcuGEmqDnfD3PB9KQOO7fJr7puzKmW8tBrNXzx4nnUwpWLDT/ON2bqiytzfOUPx/YPvS7tveDnrH2h3Lu1doRHfrWZbbI3XyBn21F/X8r3XuWaf15IB0Riobj2l1pUUe+GC+hnqqdIxn/s7rBvd9+ewzVM7ivN8tnu/8eotk5Dp9+vrrAjsZ/07pMHX+sl6gFBMuKjj4PX5vLX2ngMj9uPKj+a7dl7GppU1Ak+/e6Pj7LGG+rmqoUVF80iTic73bF6LzbZmrfyxyiLTLUH3R8Pu4GEvtxS/DK+xrXA9e376K3l9VO+QFBQOSNIPwAKAPwFwTgOg

Bug reports, suggestions and questions are welcome at the project page.

Build messages:

Compiling embedded code
356 instructions before optimizations.
18 instructions eliminated by Temp Variables Elimination.
1 instructions eliminated by Case Expression Optimization.
49 instructions eliminated by Dead Code Elimination (7 iterations).
1 instructions eliminated by Jump Normalization (5 iterations).
16 instructions eliminated by Jump Optimization (5 iterations).
18 instructions eliminated by Single Step Elimination (3 passes, 8 iterations).
2 instructions modified by Expression Optimization (3 iterations).
3 instructions eliminated by If Expression Optimization (3 iterations).
11 instructions eliminated by Data Flow Optimization (4 passes, 13 iterations).
1 instructions added by Loop Optimization (3 iterations).
3 loops improved by Loop Optimization.
3 function calls inlined by Function Inlining.
85 instructions added by Case Switching (6 iterations).
1 case expressions converted to switched jumps Case Switching.
7 instructions eliminated by Jump Straightening (5 iterations).
3 instructions updated by JumpThreading.
25 instructions eliminated by Print Merging.
293 instructions after optimizations.
Performance: parsed in 26 ms, compiled in 5 ms, optimized in 105 ms.
Created schematic 'Regulator' with dimensions ( 3, 1).

Mindcode Compiler Mlog Decompiler Schematics Builder Schematics Decompiler

Mindcode Compiler
Mlog Decompiler
Schematics Builder
Schematics Decompiler