Anonymous

procedure chkForGroundGoomba
    goombaCounter := 1
    loop
        curItemPosition := 1
        if mapPartsArray (goombaCounter, 6) = "1" then
            loop
                if goombaPosY (goombaCounter) < 80 then
                    if mapPartsArray (curItemPosition, 1) = "0" then
                        if (goombaPosX (goombaCounter)) > ((curItemPosition * 30) - 10) then
                            if (goombaPosX (goombaCounter)) < ((curItemPosition * 30) + 20) then
                                applyGoombaGravity (goombaCounter) := true
                                goombaGroundHeight (goombaCounter) := -70
                                goombaVelX (goombaCounter) := 0
                                exit when 1 = 1
                            else
                                goombaGroundHeight (goombaCounter) := 60
                            end if
                        end if
                    else
                        %applyGoombaGravity (curItemPosition) := false
                    end if
                end if
                curItemPosition := curItemPosition + 1
                exit when curItemPosition = mapLength
            end loop
        end if
        goombaCounter := goombaCounter + 1
        exit when goombaCounter = mapLength
    end loop

    curItemPosition := 1
    loop
        if goombaPosY (curItemPosition) < goombaGroundHeight (curItemPosition) then
            goombaVelY (curItemPosition) := 0
            goombaPosY (curItemPosition) := goombaGroundHeight (curItemPosition)
        end if
        curItemPosition := curItemPosition + 1
        exit when curItemPosition = mapLength
    end loop
end chkForGroundGoomba