Regenerator.vs

[10,11,149,93] %%order
$snapshot{ ## [Block] -> Snapshot
    <List>
     CLONE
     :SORT{BLOCKID @order SWAP INDEX}
    %%input
    ARRAY %%bdata ## [data,id,block]
    ARRAY %%bnbt ## [nbt,block]
    @input SIZE %%i
    BEGIN
        @i 0 >
    WHILE
        @i 1 - %i
        @input @i EL <Block> %%b
        @bdata
         @b BLOCKDATA ADD
         @b BLOCKID ADD
         @b ADD
         DROP
    REPEAT

    @PowerNBT IF
        @input SIZE %%i
        BEGIN
            @i 0 >
        WHILE
            @i 1 - %i
            @input @i EL <Block> %%b
            @b NBT %%t
            @t IF
                @bnbt
                 @t ADD
                 @b ADD
                DROP
            THEN
        REPEAT
    THEN
    @bdata @bnbt @Snapshot NEW
}
%Snapshot{
    %%bnbt
    %%bdata
    $regen{
        @bdata CLONE %%blocks
        SYSTIME %%t
        BEGIN
            @blocks
        WHILE
            @blocks POP
            @blocks POP
            @blocks POP
            SETBLOCKIDDATA DROP
            SYSTIME @t - 200 > IF
                0 WAIT 0 TICK
                SYSTIME %t
            THEN
        REPEAT
        @PowerNBT IF
            @bnbt CLONE %%blocks
            BEGIN
                @blocks
            WHILE
                @blocks POP
                @blocks POP
                SETNBT DROP
                SYSTIME @t - 200 > IF
                    0 WAIT 0 TICK
                    SYSTIME %t
                THEN
            REPEAT
        THEN
    }
}