set current bitmap 1
a = 1
b = 2
c = 3
get image a,0,0,(a*64),(a*64)
get image b,(a*64),0,(b*64),(b*64)
get image c,(b*64),0,(c*64),(c*64)
dim tilelevel(10,3)
tilelevel(1,1) = 1
tilelevel(1,2) = 0
tilelevel(1,3) = 0
tilelevel(2,1) = 1
tilelevel(2,2) = 64
tilelevel(2,3) = 0
tilelevel(3,1) = 1
tilelevel(3,2) = 128
tilelevel(3,3) = 0
tilelevel(4,1) = 3
tilelevel(4,2) = 192
tilelevel(4,3) = 0
tilelevel(5,1) = 2
tilelevel(5,2) = 256
tilelevel(5,3) = 0
tilelevel(6,1) = 3
tilelevel(6,2) = 320
tilelevel(6,3) = 0
tilelevel(7,1) = 2
tilelevel(7,2) = 384
tilelevel(7,3) = 0
tilelevel(8,1) = 1
tilelevel(8,2) = 448
tilelevel(8,3) = 0
tilelevel(9,1) = 1
tilelevel(9,2) = 512
tilelevel(9,3) = 0
tilelevel(10,1) = 1
tilelevel(10,2) = 576
tilelevel(10,3) = 0
while escapekey() = 0
paste image tilelevel(1,1),tilelevel(1,2),tilelevel(1,3)
paste image tilelevel(2,1),tilelevel(2,2),tilelevel(2,3)
paste image tilelevel(3,1),tilelevel(3,2),tilelevel(3,3)
paste image tilelevel(4,1),tilelevel(4,2),tilelevel(4,3)
paste image tilelevel(5,1),tilelevel(5,2),tilelevel(5,3)
paste image tilelevel(6,1),tilelevel(6,2),tilelevel(6,3)
paste image tilelevel(7,1),tilelevel(7,2),tilelevel(7,3)
paste image tilelevel(8,1),tilelevel(8,2),tilelevel(8,3)
paste image tilelevel(9,1),tilelevel(9,2),tilelevel(9,3)
paste image tilelevel(10,1),tilelevel(10,2),tilelevel(10,3)
sync
endwhile
Hi I'm working on learning tile scrolling, and
the above is a section from the starting program that I'm making.
The section covers everything after loading the basis image for my tiles. I'm just trying to generate one row of 64x64 tiles for starters.
But when running, all I get is a blank black screen.
What is going wrong?