Sorry your browser is not supported!

REM - Save the path we have found.
function SavePath(NodeIndex as integer, startX as integer, startY as integer)
    mbIndex as integer
    cX as integer
    cY as integer
    cIndex as integer
    memSize as integer
    Found as boolean
    memSize = 0
    Found = 0
    cIndex = NodeIndex
    repeat
        cX = gCList(cIndex).xpos
        cY = gCList(cIndex).ypos
        inc memSize, 1
        cIndex = gCList(cIndex).parent
    until cX = startX and cY = startY
    repeat
        mbIndex = rnd(65535)
        if memblock exist(mbIndex) = 0 then Found = 1
    until Found = 1

    make memblock mbIndex, memSize*4

    for i=0 to memSize-1
        write memblock word mbIndex, i*4, gCList(NodeIndex).xpos
        write memblock word mbIndex, i*4+2, gCList(NodeIndex).ypos
        NodeIndex = gCList(NodeIndex).parent
    next i
endfunction mbIndex

mbIndex = rnd(65535)
if memblock exist(mbIndex) = 0 then Found = 1