delayForScene :: Scene -> Int
delayForScene scene =
    if isPiecePresentInScene scene then
        500 - 20 * (levelInStats $ statsInScene scene) else 0
delayForScene :: Scene -> Int
delayForScene scene =
    if isPiecePresentInScene scene then
        500 - 20 * (levelInStats $ statsInScene scene) else 0
delayForScene scene =
    if isPiecePresentInScene scene then
        500 - 20 * (levelInStats $ statsInScene scene) else 0