procedure takeAll
{
    while isBrick
    {
        take
    }
}

procedure moveToWallAndTake
{
    while NOT isWall
    {
        takeAll
        move
    }
    takeAll # seber vse na posledni pozici u zdi
}

procedure turnRight
{
    turnLeft
    turnLeft
    turnLeft
}

procedure takeAllInRoom
{
    takeTwoRowsAndRight # seber prvni dve rady (sloupce)
    
    # seber vsechny zbyle rady
    while not isWall
    {
        move
        turnRight
        takeTwoRowsAndRight
    }
}

procedure takeTwoRowsAndRight
{
    moveToWallAndTake # seber vse cestou nahoru
    turnLeft
    isWall {
        # nic
    } else { # neni zed
        move
        turnLeft
        moveToWallAndTake #seber vse cestou dolu
        turnRight
    }
}