Well heres a test tile scroller i just made, here ya go, hope it helps:
Graphics3D 800,600,16,2
SetBuffer BackBuffer()
cam=CreateCamera()
PositionEntity cam,64,10,64
RotateEntity cam,90,0,0;turn camera so its pointing straight down,place in middle of field
light=CreateLight()
RotateEntity light,90,0,0
mapx=128
mapy=128
;create a terrain
terr=CreateTerrain(128)
;create a generic floor tile
tile=CreateMesh()
surf=CreateSurface(tile)
v1=AddVertex(surf,0,0,0,0,0)
v2=AddVertex(surf,1,0,1,1,1)
v3=AddVertex(surf,1,0,0,1,0)
v4=AddVertex(surf,0,0,1,0,1)
tri=AddTriangle(surf,v4,v2,v1)
tri2=AddTriangle(surf,v2,v3,v1)
HideEntity(tile)
;create 1 quick texture
texture=CreateTexture(256,256)
SetBuffer TextureBuffer(texture)
EntityTexture terr,texture
SetBuffer TextureBuffer(texture)
Color 128,128,128
Rect 28,28,200,200
SetBuffer BackBuffer()
Dim m.map(mapx,mapy)
;set each maptile to the texture
x=0
While x<mapx
For y=1 To 100 Step 1
m(x,y)=New map
m(x,y)\mesh=CopyEntity(tile)
m(x,y)\image=texture
EntityTexture m(x,y)\mesh,m(x,y)\image
Next
x=x+1
Wend
While Not KeyHit(1)
If KeyDown(200)=True MoveEntity cam,0,.25,0
If KeyDown(208)=True MoveEntity cam,0,-.25,0
If KeyDown(205)=True MoveEntity cam,.25,0,0
If KeyDown(203)=True MoveEntity cam,-.25,0,0
RenderWorld
Flip
Wend
ClearWorld()
End
Type map
Field mesh
Field image
Field x
Field y
End Type
Note you could use data statements or your own little data file to read the different map images:like this
dim image.image(100)
image(1)=loadimage..
image(2)=loadimage...
image(3)=loadimage...
file=openfile("c:\mapdata.dat")
x=0:y=0
while not eof(file)
b=readline(file)
If x>mapx then
y=y+1 and x+0
endif
m(x,y)\image=image(b)
x=x+1
wend
closefile(file)