RedstoneLagDetector.vs

200 %%delay
30 %%limit

$setDelay{ ## Integer ->
    <Integer> %delay
}
$setLimit{ ## Integer ->
    <Integer> %delay
}

$find{ ## () -> [Blocks]
    HASHMAP %%blockScores

    RedstoneListener{
        @Event:getBlock %%block ## берем блок эвента
        @blockScores @block MHAS IF ## если он уже был активирован
            @blockScores @block MGET 1 + %%score ## увеличиваем счетчик
        ELSE
            1 %%score ## иначе ставим в 1
        THEN
        @blockScores @block @score MPUT DROP ## записываем в мапу
    } "BlockRedstoneEvent" REGISTER ## регистрируем листенер
    @delay TICKS ## ждем

    ARRAY %%lagBlocks
    @blockScores:EACH{ ## итерация по хешмапе
        %%key ## ключ (блок)
        @blockScores @key MGET %%val ## значение (число)
        @val @limit > IF
            @lagBlocks @key ADD DROP
        THEN
    }
    @lagBlocks ## возвращаем массив лаго-блоков
}