A quick solution might be: offsetting dx.
Use "time = (time + 1)" at the end of the loop and then use "dx = time mod maptilewidth" instead of "dx = 0". Finally, add "-1" after "For y = 0 to maptileheight"
I think the best approach would be using an array:
Dim block(maptilewidth, maptileheight) First, use Read..Data to fill the array with number, then, during the main loop, use the numbers in the array to draw the images.
Use "time = (time + 1)" at the end of the loop and then use "dx = time mod maptilewidth" instead of "dx = 0". Finally, add "-1" after "For y = 0 to maptileheight"
I think the best approach would be using an array:
Dim block(maptilewidth, maptileheight) First, use Read..Data to fill the array with number, then, during the main loop, use the numbers in the array to draw the images.