Makes nice puzzle game maps with just cubes and notepad.

This is a program I am using to make the levels for a puzle game. Make sure to dowload the Notpad file, or just make your own, make a 10-10 square of 1's and 0's. like this-

1111111111
1100110011
1100110011
1101111011
1111111111
1111111111
1101111011
1100110011
1100110011
1111111111

The 0's are empty spaces, and the 1's are where there's land. Don't take this for granted, this took me a while to figure out!

Make sure the notepad file and the program are in the same folder.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `Set Up the Background
Sync On
Backdrop On
Autocam Off

`Make The Ground Cubes
For cubes=1 to 118
   Make Object Cube cubes,20
   Position object cubes,0,-1000,0
Next cubes

`Position the Map form the .TXT File
xpos#=-100
zpos#=100
   For a=0 to 118
      num#=Read Byte From File ("Maps.txt",a)
      if num#=49 then Position Object a+1,xpos#,0,zpos#
      if num#=10 or num#=13 then xpos#=xpos#-20
         xpos#=xpos#+20
      if xpos#=100
         xpos#=-100
         zpos#=zpos#-20
      endif
    Next a

`Main Loop
Do

`Move things
Position Camera x#,30,z#
If upkey()=1 then x#=x#+3
if downkey()=1 then x#=x#-3
if leftkey()=1 then z#=z#-1
if rightkey()=1 then z#=z#+1

Point Camera 0,0,0

`Refresh the screen
Sync
`End of Loop
Loop
`Terminate Program!
End