/* Using Tile Based Maps: Version 0.2 ("Pirate") */
/* Aaron Daub */
/* October 6th, yarr */


View.Set ("graphics:300;300") %Here be where I set the screen size
var stream : int % And here be where I declare the stream, arrghh
var tiles : array 0 .. 14, 0 .. 14 of int %These be my tile arrays
open : stream, "map.txt", read %Open the stream, mateys
for x : 0 .. 14
    for y : 0 .. 14
        read : stream, tiles (x, y) %Ponder o'er the data
    end for
end for
close (stream) %Fasten the stream

for x : 0 .. 14
    for y : 0 .. 14
        if tiles (x, y) = 1 then %And 'ere be where the problem lies
            Draw.FillBox (x * 20, y * 20, x * 20 + 20, y * 20 + 20, red)
        elsif tiles (x, y) = 0 then
            Draw.FillBox (x * 20, y * 20, x * 20 + 20, y * 20 + 20, green)
        end if
    end for
end for