Scratch

    when green flag clicked
        point in direction (90)
        set "PlayerX" to "0"
        set "PlayerY" to "0"
        set "LevelNumber" to [1]
        set "Dir" to "0"
        set "Xvel" to "0"
        set "Yvel" to "0"
        forever  
            clear
            go to x: 0 y: 0
            switch to costume ((LevelNumber) + 1)
            stamp
            switch to costume "Marble"
            if ((Dir) = "0")
                go to x: ((PlayerX) * 30) y: ((PlayerY) * 30)
            else
                if ((Dir) = "1")
                    go to x: ((PlayerY) * 30) y: ((PlayerX) * -30)
                else
                    if ((Dir) = "2")
                        go to x: ((PlayerX) * -30) y: ((PlayerY) * -30)
                    else
                        go to x: ((PlayerY) * -30) y: ((PlayerX) * 30)
            stamp
            if (key "right arrow" pressed?) 
                switch to costume ((LevelNumber) + 1)
                go to x: 0 y: 0
                clear
                set "Dir" to (((Dir) + 1) mod 4)
                set "PlayerX" to (round (PlayerX))
                set "PlayerY" to (round (PlayerY))
                repeat 10  
                    turn  9 degrees
            if (key "left arrow" pressed?) 
                switch to costume ((LevelNumber) + 1)
                go to x: 0 y: 0
                clear
                set "Dir" to (((Dir) - 1) mod 4)
                set "PlayerX" to (round (PlayerX))
                set "PlayerY" to (round (PlayerY))
                repeat 10  
                    turn  -9 degrees
            if (((Dir) = "0") and ("0" = (letter ((((round (PlayerX)) + 0) + 4) + ((((round ((PlayerY) + 0.5)) + -1) - 3) * -7)) of (item (LevelNumber) of "LevelData" )))) 
                change "PlayerY" by -0.1
            if (((Dir) = "1") and ("0" = (letter ((((round ((PlayerX) - 0.5)) + 1) + 4) + ((((round ((PlayerY) + 0.5)) + 0) - 3) * -7)) of (item (LevelNumber) of "LevelData" )))) 
                change "PlayerX" by 0.1
            if (((Dir) = "2") and ("0" = (letter ((((round (PlayerX)) + 0) + 4) + ((((round ((PlayerY) - 0.5)) + 1) - 3) * -7)) of (item (LevelNumber) of "LevelData" )))) 
                change "PlayerY" by 0.1
            if (((Dir) = "3") and ("0" = (letter ((((round ((PlayerX) + 0.5)) + -1) + 4) + ((((round ((PlayerY) - 0.5)) + 0) - 3) * -7)) of (item (LevelNumber) of "LevelData" )))) 
                change "PlayerX" by -0.1
    end

EDIT: That's pretty good, some stuff is a bit off...

I did this by shift-clicking the File menu and clicking "Write project summary...". The .txt file on my desktop contained the above code. 

Last edited by Hardmath123 (2012-02-23 11:00:50)